home *** CD-ROM | disk | FTP | other *** search
/ Light ROM 3 / Light ROM 3 - Disc 2.iso / programs / amiga / macromkr / adpromac.lha / $LOGO_BOTTOM.adpro < prev    next >
Text File  |  1993-06-18  |  2KB  |  80 lines
  1. /* ****************************************************************** */
  2. /*               Macro Maker ADPRO AREXX Script                       */
  3. /*                                      */
  4. /*            create 2 pic logo at bottom                   */
  5. /*                                      */
  6. /* ****************************************************************** */
  7.  
  8.  
  9.  
  10. OPTIONS RESULTS
  11.  
  12.  
  13. Address 'ADPro'
  14.  
  15.  
  16. STRING = '"CREATE A 2 PIC LOGO PAGE AT BOTTOM?"'
  17. OKAY2 STRING
  18. IF RC = 0 THEN EXIT
  19.  
  20. LFORMAT "UNIVERSAL"
  21. GETFILES '"SHIFT & PICK 2 IMAGES"' 'EH0:'
  22. LFNAM = ADPRO_RESULT
  23. LOAD WORD(LFnam,1)
  24. IF RC ~= 0 THEN DO
  25.         OKAY1 'Could Not Load' LFnam
  26.         EXIT
  27.     END
  28.  
  29. ABS_SCALE  280 180
  30. OPERATOR "RECTANGLE" 0 0 280 180 7 255 255 255
  31. SFORMAT 'JPEG'
  32. SAVE "RAM:TEMP1" "RAW" 50
  33.  
  34.  
  35.  
  36.  
  37. LOAD WORD(LFnam,2)
  38. IF RC ~= 0 THEN DO
  39.         OKAY1 'Could Not Load' LFnam
  40.         EXIT
  41.     END
  42.  
  43. ABS_SCALE  280 180
  44.  
  45. OPERATOR "RECTANGLE" 0 0 280 180 7 255 255 255
  46. SFORMAT 'JPEG'
  47. SAVE "RAM:TEMP2" "RAW" 50
  48.  
  49. LFORMAT 'BACKLINE'
  50. LOAD "X" "COLOR" 752 480 50 0 0 255 0 0 175 0 0 100 "S"
  51. IF RC ~= 0 THEN EXIT
  52.  
  53.  
  54. LFORMAT 'UNIVERSAL'
  55.  
  56. OPERATOR "RECTANGLE" 90 260 280 180 '-1' 0 0 0 50
  57. LOAD "RAM:TEMP1" 80 250 100 
  58. IF RC ~= 0 THEN DO
  59.         OKAY1 'Could Not Load' LFnam
  60.         EXIT
  61.     END
  62.  
  63. OPERATOR "RECTANGLE" 410 260 280 180 '-1' 0 0 0 50
  64. LOAD "RAM:TEMP2" 400 250 100  
  65. IF RC ~= 0 THEN DO
  66.         OKAY1 'Could Not Load' LFnam
  67.         EXIT
  68.     END
  69. SFORMAT 'IFF' 
  70. GETFILE 'SAVE-FILE'
  71. SFNAM = ADPRO_RESULT
  72. SAVE SFNAM 'RAW'
  73. IF RC ~= 0 THEN DO
  74.         OKAY1 'Could Not Save' SFnam
  75.         EXIT
  76.     END
  77. address command 'delete ram:temp1'
  78. address command 'delete ram:temp2'
  79. EXIT
  80.